home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Japan - A Multimedia Tour
/
Japan, A Multimedia Tour (ROM2263)(Innotech Multimedia Corporation)(1996).iso
/
setup.inf
< prev
Wrap
Text File
|
1996-03-28
|
7KB
|
186 lines
;SETUP.INF - Setup File For Japan CD-ROM
SetVariable(TitleName, "Japan- A Multimedia Tour") ;Name of the title
SetVariable (TitleMVB, "Innotech") ; Basename of the MVB file
SetVariable(TitleSrcDir, "Innotech\") ;Source subdirectory of the title
GetCurPath(FinditSrcDir) ;Source directory of the Findit
SetVariable (FinditSize, 3 000 000) ; Size of the Findit files that will
; be copied over (measured in bytes)
SetVariable (FinditDestDir, "C:\Japan\") ; Destination directory for
; the Findit. Set default
; here.
SetVariable (CDdrive, "D:\")
WindowTitle(<TitleName> " ")
; Set the instruction text used in the initial instructions window.
; Add Help instructions if the file SETUP.HLP exists.
;
SetVariable (InitialInstructions,
"Click on {\b OK} or press {\b Enter} to continue. "
"To abort the setup, click on the {\b Exit} button at the "
"bottom right corner of the screen, or press {\b F3}. ")
IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
Goto (DisplayInitialMessage)
AddHelpInstructions:
SetVariable (InitialInstructions,
<InitialInstructions> "You can always obtain help by "
"clicking on the {\b Help} button or pressing {\b F1}. ")
DisplayInitialMessage:
DisplayMessage (
"The Setup program will install the " <TitleName> " ",
<InitialInstructions>)
; Determine if the Findit has been installed before.
; If the WIN.INI file contains information on where the Findit directory
; is located, then make that the default path to install the Findit.
;
GetFromWinIni (FinditDestDirTemp, "Jap", "Path", "Undefined")
IfEqualGoto (<FinditDestDirTemp>, "Undefined", PromptFinditDestDir)
SetVariable (FinditDestDir, <FinditDestDirTemp>)
AskAgain:
PromptCDdrive:
PromptFinditDestDir:
;PromptPath(FLOPPY, <FLOPPY>,
; "Which Source Drive Do You Want To Install From?",
; "Modify The Default Drive If Necessary, You Should Specify The {\b Drive} "
; "{\b Letter}, A {\b Colon}, And End In A {\b Backslash}. Then Click {\b OK} Or "
; "Press {\b Enter} To Continue. ",
; "The Drive Letter Is Not Valid. You Must Specify A Valid Drive "
; "Letter, A Colon, And End In A Backslash. ")
PromptPath (FinditDestDir, <FinditDestDir>,
"Where should Setup install JAPAN?",
"Modify the default path if necessary, and then click on {\b OK} or "
"press {\b Enter} to continue. ",
"The path is currently not valid. You must specify a drive "
"letter, a colon, and a directory from the root of the drive. ")
PromptPath(CDdrive, <CDdrive>,
"Which drive letter is the CDROM drive currently ?",
"Modify the default drive if necessary, you should specify a drive"
" letter, a colon, and end in a {\b backslash}. Then click on {\b OK} or "
" press {\b Enter} to continue. ",
"The Drive Letter is not valid. You must specify a valid drive"
" letter, a colon, and end in a backslash. ")
; Don't allow Findit to be installed in the Windows directory
;
GetWinPath (WinPath)
GetWinSystemPath (SystemPath)
IfNotEqualGoto (<FinditDestDir>, <WinPath>, CheckSpace)
DisplayMessage (
"You cannot install the JAPAN files into the Windows directory. "
"Please enter another directory.",
"Click on {\b OK} or press {\b Enter} to enter another directory "
"for the directory listings.")
Goto (PromptFinditDestDir)
; Check if there is enough space to install the Findit.
;
CheckSpace:
GetSpaceAvailable (SpaceAvailable, <FinditDestDir>)
IfLowerGoto (<FinditSize>, <SpaceAvailable>, FinditDestDirOK)
AskYesNo (Prompt, "Yes",
"There may not be enough space or invalid Drive or Path to install "
"JAPAN Files "
"Would you like to enter a new path for the files? ",
"Click on {\b Yes} or press {\b 'Y'} to enter a new path for The "
"JAPAN-A Multimedia Tour.\par "
"Click on {\b No} or press {\b 'N'} to continue anyway.\par "
"Click on the {\b Exit} button or press {\b F3} to exit Setup. "
"You may wish to exit Setup and make some more space on your hard "
"disk. Run Setup again when there is enough space on your hard "
"disk. ")
IfEqualGoto (<Prompt>, "Yes", PromptFinditDestDir)
AskYesNo (Prompt, "Yes",
"There may not be enough space or invalid Drive or Path to install "
"The JAPAN Files. "
"Would you like to enter a new path for the files? ",
"Click on {\b Yes} or press {\b 'Y'} to enter a new path for "
"The JAPAN files\par "
"Click on {\b No} or press {\b 'N'} to continue anyway.\par "
"Click on the {\b Exit} button or press {\b F3} to exit Setup. "
"You may wish to exit Setup and make some more space on your hard "
"disk. Run Setup again when there is enough space on your hard "
"disk. ")
IfEqualGoto (<Prompt>, "Yes", PromptCDdrive)
FinditDestDirOK:
AskYesNo (AskAgain, "Yes",
"Would you like to change anything before proceeding with "
"the installation?",
"Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
"Click on {\b No} or press {\b 'N'} to proceed with installation.")
IfEqualGoto (<AskAgain>, "Yes", AskAgain)
; Create the tree structure.
;
MakePath (<FinditDestDir>)
; Copy the files
;
OpenCopyProgress ("Setup is copying the JAPAN Files.",
"Please wait while Setup copies the files.")
;;;; FILES ON THE CD_ROM - IMAGES ;;;;
;;;; FILES ON THE DISKETTE - MISC. ;;;;
CopyFile(<CDdrive> "instwin\NAVIT.EXE", <FinditDestDir> "NAVIT.EXE", 550000)
CopyFile(<CDdrive> "instwin\NAVIT.INI", <FinditDestDir> "NAVIT.INI", 2000)
CopyFile(<CDdrive> "instwin\PARAM6.0", <FinditDestDir> "PARAM6.0", 200)
CopyFile(<CDdrive> "instwin\intro", <FinditDestDir> "intro", 300)
CopyFile(<CDdrive> "instwin\standard.f0", <FinditDestDir> "standard.f0", 50)
CopyFile(<CDdrive> "instwin\param5", <FinditDestDir> "param5", 200)
;CopyFile(<CDdrive> "instwin\param4", <FinditDestDir> "param4", 200)
CloseCopyProgress ()
SetVariable (Continuation, Label1)
Label1: ; Resume execution
OpenProgmanProgress (
"Setup is adding Program Manager groups.",
"Please wait while Setup adds {\b Program Manager} groups".)
OpenProgmanGroup ("ITP Nelson - JAPAN", Delete) ;; Add the group named after the title
AddProgmanItem ("JAPAN", <FinditDestDir> "NAVIT.EXE", <FinditDestDir> "NAVIT.EXE", 0)
CloseProgmanProgress ()
TranslateFile(<CDdrive>"instwin\param6.0", <FinditDestDir>"param6.0", 40, romletter, <CDdrive>)
AddToWinIni ("JAPAN", "Path", <FinditDestDir>)
SetVariable (Message,
"The Setup program has successfully installed The JAPAN - A Multimedia Tour"
" application. You can start the application by double clicking"
" on the JAPAN Icon in the ITP Nelson - JAPAN program group. %n%n")
DisplayMessage (<Message>,
"Click on {\b OK} or press {\b Enter} to return to the "
"Program Manager.")